ccccccccccce Lk IIIIII11 UUU UUU TTTTTTTTTTTTTTT CLt 
cccccccccccc LLL III1I111 UUU UUU TTTTTTTTTTTTTTT LLet 
cceccccccccce =k HII UUU UUU TITTTTTTITTTITTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I]] U UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I]] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I]] UUU UUU TTT LLL 

ccc LLL I]] UUU UUU TTT LLL 

ccc LLL I]] UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I}] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL IJ] UUU UUU TTT LLL 
CCCCCCCCCCCC LLL LLLLLLLLLLLL HII UUUUUUUUUUUUUUU TTT LELLLLLELLLELLLL 
CCCCCCCCCCCC LLL LLLLLLLLLLLL HIIIII11 UUUUUUUUUUUUUUU TTT LLELLLLLLLLLLLLL 
CCCCCCCCCCCC LLLLLLLLLLLLLLL HII UUUUUUUUUUUUUUU TTT LLELLLLLLLLLLLLL 
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H 1 600) 0 MODULE create ( IDENT = ‘v04-000', 
; ¢ 4 § 8 ADDRESSING {MODE CEXTERNAL= GENERAL), | 
$ 0 MAIN = create) = 
; 4 0004 1 BEGIN 
ea O06 1 | 
: 4 0097 } i eeeeeeeeeeeeeeeHeeeeeKAReKeKeeeeeeeeeeeeeeeeeeeeteneeneneeeneeeneeeneeeeee 
: fe * 
3 9 0009 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 B * 

° 10 0010 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * 

i ou QO1] J is ALL RIGHTS RESERVED. * | 
o Py *® 

$ ig 0918 1 Ie roe SOF TWARE Hd FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 

3 14 014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * | 
: 15 0015 1 !« INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 

3 16 0016 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHER WISE MADE AVAILABLE TO ANY * | 
; 17 0017 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
: i id : _ TRANSFERRED. & 
° :* * | 
: 20 $020 1 !@ THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
: 21 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; $$ O0s$ : el CORPORATION. & 

2 if a 

H 24 onse 1 !® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS te 

: 25 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ® 

; @& 0026 1 !« * 
ee 0027 1 !« * 

3 28 goss 1 i eeeeeeee eee eeeeeeeeeeeeeeeeeeeeeeKeeeeeeeeeeeeeeeeeeeeeeeneteeeeneeeeneneees | 
: 9 0 1 
5 50 5030 1 !e+ 
; 1 0031 1: FACILITY: CREATE Command 

hae 0032 1! 
; 33 0033 1 | ABSTRACT: 

; «34 0034 1! 
ee 0035 1! This utility creates files and directories. 
; =» 0036 1! 

5 oF 0037 1 ! ENVIRONMENT: 

; 3 0038 1! 

5 4 4 : VAX/VMS operating system. unprivileged user mode, 
3: (41 0041 1 ! AUTHOR: Greg Robert, Nov 1979 
; «643 0043 1 ! Modified by: 
3 (6 044 1 | 
3; 645 045 1! v03-005 LAPO150 L. Mark Pilant, 12-Sep-1983 13:58 
; 46 0046 1! Obtain the protect ton of the newly created file to apply 
: 4 9h 4 ; the. /PROTECTION qualifier value correctly. 
; «649 0049 1! v03-004 LMP0140 . Mark Pilant, 19-Aug-1983 9:37 | 
: 20 Boar ! Allow handling ot “alphanumeric UICs 
; & 005¢ 1 | vO3~003 LMPO133 L. Mark Pilant 4-Aug-1983 15:10 | 
s oO B82 1! ly set the protection if explicitly requested via the 
; 26 bee : poe Ae qualifier. 

; 3 0036 1! v03-002 $HZ20002 Stephen H. Zalewski 07-Jul-1983 
; WW 0057 1! Rewrote the way that the’/ PROTECTION parsing was done. 
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Stephen H. 


Modified CREATE to use the new CLI. 
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LIBRARY | SYSSLIBRARY: STARLET 32" 
LIBRARY 'SYSSLIBRARY:TPAMAC.L32'; 


MACRO 
3 


write message(msg) = 
STGNAL (ms 
ZIF ZLENGTH GTR 1 
ZTHEN ,ZREMAINING %F1) 


i 
Define message codes. 


Sshr_msgdef(msg,145,global, 
(openin,error) 
(readerr,error), 
(closein,error), 
(openout,error) 
(writeerr,error), 
(closeout,error), 
(created info), 
(exists, info), 
(syntax,severe), 
(dirnotcre,error), 
(badvalue,error), 


d. 7 
16-Sep-1984 00:03: AX-11 Bliss-32 V4.0-742 Pa 
14-8ep-1984 1 03:36 CLIUTL.SRCIJCREATE.832;1 na 
! VAX/VMS common definitions 

! TPARSE macros 


: Macro to signal a condition to the handler 


' Pass the message code 
! and if more than 1 arg 
%; ! then the rest too 


! Unable to open or connect to SYSSINPUT 
' error while rooting SYSSINPUT 

! Unable to close SYSSINPUT 

! Unable to create or connect to user named output file 
! error while writin il 

!' Unable to close output file 

! File or directory created 

! File or directory already exists 


NP 
output file 


Parse failure 
Directory not created 
Bad value given for /version or /volume 


— 
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OO 
GN 


3 95 1! 
3 89 1! EQUATED SYMBOLS 
3 97 1! 
; 100 a8 1 
; 101 1 LITERAL 
3 196 1 1 TRUE = 1, ' BOOLEAN TRUE 
3 101 +1 FALSE = 0; ' BOOLEAN FALSE 
; 104 1 ¢ 1 | 
; 105 1 1 
3 196 104 1 
;s 10 105 1! 
3 138 8 } : Define CLI qualifier bit flag numbers (see qualifier$flags) | 
; 110 0108 1 | 
s 43 8198 1 LITERA 
3 M6 P0110 1 SEGULST (QUAL_,,0.,1, | 
: 11 P0111 1 directory, ! /DIRECTORY 
: 114 P B18 1 (owner_uic,) ' /OWNER_UIC 
3 (115 P0113 1 (protection,), ' /PROTECTION 
s 116 P0114 1 (version Limit.), ! /VERS ION, LIMIT 
s 117 P0115 1 pyolune . ! UME 
; 118 0116 1 (log,)); ! 
3; 6119 0117 #1 
| 
| 
| 
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i Table of contents 


FORWARD ROUTINE 


create, 
get_output_file, 
create_dir, 
create_file, 
copy_in_out, 
log_results 
ge “createq(s, 
owner _uic_parse, 
arse_class, 
andler, 
fab_error, 
rab_error, 
create_error, 
vm_error; 


oe ROUTINE 


cli$present, 
sys$setdfprot; 


to a a ht a 8 4 


yo 
1e$3p-198e 12:08:36 EEL TUTL2sneScaeaYe sacs] 


Main create routine 

Get next output file 

Create directory initialization 
Create file initialization 

Copy SYSSINPUT to output file 
Inform user of results 

Get command qualifiers 

Parse /OWNER_UIC value 

Parse protection of one use class 
Condition handler 

FAB error handler 

RAB error handler 

LIBSCREATE_DIR error handler 
LIBS(GET or FREE)_VM err hdlr 


Oe 


Parses qualifier values 

Gets virtual memory 

Release virtual memory 

Creates directory entries 

Convert decimal value to binary 
Get qualifier from CLI 

Determine if qualifier is present 
Read/set default file protection 


1S-se0-19e 09:05:32 yanett OL inncd2 v4.0:742 Page 66 
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: 153 149 1! 

3 } ¢ : é } Storage definitions 

3 4 152 1 

>>| § 1 § 1 OWN 

; ! 3 \ ¢ } quel i Cierst lags : BITVECTOR(E32) ! | Qualifier pe presence bitmap 

; 160 1 § 1 createSowner_uic eit yim : tontains” /OuNER VIC value 

: 161 1 1 create$protection VECTORL2,WO 
: 16¢ 1 2 1 INITIAL (> ! Contains /PROTECTION value 
s 1 1 create$version_ Limit: INITIAL ( + i Contains /VER SION_LIMIT value 
3 198 199 ; create$volume — : INITIAL (0), ! Contains /VOLUME Salue 
: 166 16¢ 1 tparse_block : SBBLOCK Ctpa$k_length0) ! TPARSE 

; 16 0163 1 INITIAL (tpa$k-countO ! parameter 
; 168 0164 1 TpaSm_blanks OR ! block 
3 168 A a ' tpa$m_abbrev), 
: 171 b189 1 worst_error: S$BBLOCK(4) ! Worst error encountered 

s We 0168 1 INITIAL (ss$_normal); ! Initially normal status 
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#3 
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' 
Define RMS blocks 


input ne nam on ree: Resultant input name 


nam$c _maxrss,BYTE), 


input_nam_expande 


ed: Expanded input name 
VECTOR Cnam$c_maxrss BYTE), : . 


e input_nam: S$NAM( ' File name block 

Pp Hp = input. nen expanded, ' File name before open 
Pp ESS = nam$c_maxrss, 

P RSA = input_ “nen, result, ! File name after open 


RSS = nam$c_maxrss), 


input fab: SFAB( 
nat a = msg$_openin, 


NAM = in 
ENA . 's SSINPUT", 
= GET) 


input_rab: mat 
mney = msg$ rqegeree 
FAB = input_ 


output_nam_resu 
vEtTOR™ Chonge ‘paxrss BYTE, 


' FAB for input 

; Initialize. error message 
! Address of name block 

! File name 

! Open for input 


RAB for input 
Specify error message 


wvuvuv0v 
Cc 
> 
3 
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Resultant output name 
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a ee ed ad et = = 8 8 = od = = =) 2 — os 2 = ss a = 


output oan xpanded: ! Expanded output name 
vet nam$c_maxrss,BYTE), 
ig output rif: SNAM( ' Related file name block 
Pp RSA = output . _nam_expanded, ! File name of last parse 
RSS = nam$c_maxrss), 
P output_nam: SNAM( ' File name block 
iz RLF = output_rlf, ' Related file name block 
P ESA = output “nam_expanded, ! File name before open 
P ESS = nam$c_maxrss, 
Pp RSA = output_nam_result, ! File name after open 
RSS = c_maxrss), 
output_xabpro: SXABPRO(), ! XAB for protection and uic 


output_xaball: S$XABALL( ' XAB for volume spec tf ices ton 
ALR = LBN, ' Allocate by logical bloc 
' Report allocation errors 
! Chain to next XAB 


vvv 


vv 
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AOP = HRD, 
NXT = output_xabpro), 


SBSVERRUN LS SaVenrav=SSeusenrur 


P output fab: $FAB( : bay for outpu 
CTR = asgs_ openout, : jn tialize ew message 
P FOP = $o0, ' Sequential access only 
P NAM = output_nam, : Ad ress 9 name bloc 
RAT = CR), ! Define file as Line oriented 


V4.0-74 
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' RAB for ou 


: SRAB( output 
sg$ att {tasers ! Specify error message 
put_ 


wr 
So 
£3 


= 


22 
> 
Suse RES SS Secs 
NOE wr 


oo 


vuv 
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; Parse UIC string and store binary value. 


SINIT STATE (OWNER_UIC_STB, OWNER_UIC_KTB); 


SSTATE (, 
(* PARENT) 
(TPASLIDENT,,, createSouner_uic) 


SSTATE (end_owner 
CTPAS_ EOS, “¥eRs EXIT) 


AX-11 Bliss-32 V 
CLIUTL.SRC CREATE 


ibe 


« 
~$e9-198e 1:08:35 | eet TUt SAEScREAtE:O3027 
ROUTINE create = ! CREATE Main routine 


14 
Functional description 


is 
s 


~~ & 


{nts is the . control routine for the create command. 
s called from the command language interpreter to 
create files and directories. 


i Calling sequence 


WI OOONAUE 


' 

' 

' 

' 

1 

1 

; create() from the Command Language Interpreter 
Input parameters 

None 

Output parameters 

None 

Routine value 

Worst error encountered during processing or SS$_NORMAL. 
' 


LOCAL 
status; ' Status return 


ENABLE handler; ! Set condition handler 
get_createqis(); ! Get command qualifiers 


' 
: Begin the main loop of the program. Process each file in the input List 


SESRSSSESERP ARS Sao SSE SOR OR ESC 


WHILE eet _output_file () DO ! For each output file 
5 th equal FtorStlegelquel . directory] ! If /DIRECTORY specified 
tatus = create_dir () ' then create a directory 
i Sy ELSE status = create_ “File (); : else create a file. 
9 IF (.qualifier$flagsCqual_log]) AND ' If logging re ested 
38 erred a ! and status 13.0 
1 94 THEN log_results (output_fab); ’ m Get the Looper. 
‘ 5 ND; ! ‘ig —-F l WHILE is false 


wonoon 
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a -worst_error; ! Exit with worst error encountered 


w 
oo 


54 46 45 52 41 50 


0100 
45EC 
00000000* 


15*7 
FFFF 


0000+ 


54 55 50 4E 49 24 53 59 53 


00000000 
00000000 
00000000 
00000000 
00000000 
00000003 00000008 


eTITL 

“IDENT 
«PSECT 

00000 ; TPASKEYSTO 


00000 Fibiseerste 


BY 
itd ; TPASKEYF ILL 
U.8: BYTE 


«PSECT 


00000 OWNER_UIC + 


00000 STPASTYPE 
0.5: . WORD 

00002 T TPASTYPE 
0.6: WORD 
00004 ZTBASADDR 
00008 END_OWNER Ure: 


LK 
00008 ; TPASTYPE 


0.9: WORD 

Q000A ; TPASTARGET 
0.10: WORD 
-PSECT 


00000 OWNER_UIC_KTB:: 


00000 ; ; TPASKEYO 
v. .BLKB 
00000 : TPASKEY 


O.3:  .WORD 

.PSECT 

00000 P.AAA: ASCII 
.PSECT 


00000 QUAL IF LERSELAGS: 
00004 CREATESOWNER UIC: 


ifoseo- 1984 09:05:82 yancat aL tegc32 


V4.0-74 
REATE .B32; 
AT 
Wvbe-b00\ 
-LIBSKEY1S,NOWRT, SHR, PIC,1 
—— 
ad 
-LIBSSTATES,NOWRT, SHR, PIC,1 
0 
256 
17900 


<<CREATESOWNER_UIC-U.7>-4> 
0 

5623 

o1 


-L IBSKEYOS,NOWRT, SHR, PIC,1 


So 


0 

<U.2-U.1> 
SPLITS,NOWRT ,NOEXE ,2 
\SYSSINPUT\ 

SOWNS ,NOEXE ,2 


ol 
00008 COEATESPROTES 1108: 
0000c CREATESVER Int at AMT: 


00010 CREATESVOLURE: 
00014 TPARSE_BLOCK: 
.LON 


8, 3 


ener 
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00000001 $6038 WORST ERRORS he 


-LONG 
0003C INPUT_NAM te? 


02 9088 INPUT.N 


way 
60 D BY 
FF 4 -BYT 


“{ 


f 55 
itkta INPUT Mi, im 
-BY 3 
00000000' 8 40 ei eess’ INPUT_NAM_RESULT : 
44 BYTE 8 3 
8 45 “BYTE | 3 
FF "¢. BYTE -1 3 
8 024 BYTE 0 3 
00000000" 00248 eADDRESS INPUT -NAM_ EXPANDED 3 
0000000 0 <f LONG 5 
0004 0025 WORD § 3 
0004 00260 WORD 3 
00% 00266 -WORD OC3 3 
$000 Bo8 0 $f eLONG 0 : 
000000 027 -LONG QO $ 
0274 BYTE 8 3 
0275 BYTE 3 
0 00276 BYTE 3 
0 00277 BYTE 3 
0 00 i BYTE 3 
0 0027 BYTE 3 
O27A BYTE C2) 3 
$0008 , 7C eLONG 0 3 
000 80 ~ LONG 8 3 
000000 0 - LONG 3 
0 8° 0 - LONG 5 
00000 0 Bf - LONG 3 
00000 0 - LONG 3 
00000004 00294 LONG C2) 3 
03 0029C INPUT_FAB: 
BYTE 3 3 
0290 BYTE 0 3 
Hi WORD F 
A LONG 3 
AG LONG 3 
A8 - LONG 3 
A LONG 3 
B WORD 3 
8 BYTE ; 
B -BYTE 3 
0091109A BS LONG 506970 3 
BYTE 3 
BYTE 5 
a : 
000000 - LONG 3 
| 
} 
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INPUT_RAB: 
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-BYT 
BY 


“WORD 
6 
0 
0 


ABA 
8 
(3) 


506994 


-LON 
eADDRESS INPUT_FAB 


~LON 
OUTPUT_NAM_RESULT: 


BCKB 495 
BLKB 


OUTPUT_NAM EXPANDED: 


ot oe 


OUTPUT_RLF : 


BYTE § 
-BYT $ 
BYTE 0 


-BYTE 
eADDRESS OUTPUT_NAM_EXPANDED 
-BYTE 
-BYTE 
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1 4 AX-11 Bliss-32 V4.0-74 Page 17 
1 et 99: 83 / CLIUTL.SRC CICREATE B32: 9° 8) 
50 €£ 1 BLBC 4$ : 
8 0000" ¢F £3 14 BLBC QUAL IFLeRsrLacs, 2$ : 0288 
0000v CF Q Fe 19 CALLS , CREATE_DIR : 028 
0000v ct FB 3: CALLS » CREATE_FILE + 0290 
2 D 0 $: MOVL * STATUS” ; 
DE 0000" CF Q E1 BBC QUALIFIERSFLAGS, 1$ : 0 3% 
DB 2 4 O2E BLBC its Bt : 0 9 
0000' cr F 00031 PUSHAB QuTPU 3 0294 
0000v CF 1 §B 00 5 CALLS POs RESULTS : 
DO 11 0003A BRB > 0286 
50 0000" CF Bd 00 C 4$: MOVL § WORST_ERROR, RO : 0297 
4 00041 RET + 0298 
0000 00042 5$: .WORD Seve nothing : 0271 
7E D4 00044 CLRL 30s = ( SP) : 
SE Dp 00046 PUSHL SP ; 
7E 04 aC D 00048 MOVO. 4(AP), =(SP) : 
0000v CF 03 FB 0004C CALLS #3, HANDLER ; 
04 00051 RET ; 


; Routine Size: 82 bytes, Routine Base: $CODE$ + 0000 
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ROUTINE create _dir = 


Functional Description 
i Parse the file name and invoke the directory creation subroutine. 
i Input Parameters 


i 
i 
i 
; 
none 
i 
i 


LOCAL 
p_owner_uic 
p_prot_enable, 
P_prot_value, 
p_max_versions, 
Prva, 


! Parameters to LIBSCREATE_DIR 


status, ' Catch all status return 
desc: VECTOR (2); ! Temporary work descriptor 


Parse the file name. This is done to remove and passwords from 
the file name in case it is used in an error or logging message. 


SPARSE (FAB=output_ fab); ! Do RMS PARSE 


RMS parse’s fail if the directory does not exists -- so instead 
of checking returned status look for an expanded name string. 
If name was so bad that no expansion resulted then inform the user. 


rg teteyt. nem Cnam$b_esi] EQL 0 ! If no expanded name was obtained 
fab_error (output_fab); } then report the error 
a fecurn (false); : and exit with status 


The parse results in a sroiting a” which must be stripped 
off before calling LIBSCREATE IR. But if the user supp ied 
filename, extension, or version then pass it on -- it w 


il trigger 
an error when the directory create is attempted. 
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41 
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404 
0? 
09 
0 
1 
§ 
4 
5 
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9 
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— 
No 
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i 
14-Sep-1984 


If .output_nam [nam$b_name) NEQU 
-output_nam nameb.type GTRU 
er 


! If user supplied a filename 
’ or a type 
OR gOytout nen nam$b_v GTRU 1 ' or a version 
THEN ; 


then just continue 
SE else strip oft trailin g’’.;"' 
output_nam Cnam$b_esl] = .output_nam {nam$b_esl] - 2; 


1 
Create a temporary descriptor of the expanded name. 


gooch ts =,output_nam(nam$b_es1); ! Create descriptor of parsed name 
descli) =.output_namLinam$\l_esal; ! using length and address from $NAM 


' 
: Invoke Library create directory routine passing user supplied parameters. 


p.owner_uic = p_prot_enable = p_prot_value = p_max_versions = p_rvn = 0; 
FF greet { tlorStlogelqual owner utc) 
powner_uic = createSowner_uic; 
fF eual {florStlagelqual protections 
; arat sei = createSprotection(1); 
Paprot-value = createS$protection(0); 
fF punt SttorStlagelquet_version.( init) 
P.max_versions = create$version_Limit; 
{f_,qual itierStlegelquel_voluned 
prvn = createS$volume; 


status = Aseserente sie ( Call library create/dir routine 
esc 


serrectory name 


i] 
i 
-P_owner _uic i eowner Ul 
-p_prot_enable, -P_prot_value, ! -directory protection 
-P_max_versions, ! default version Limit 
eP_rvn); ! volume 
If NOT .status ! Signal an error if necessary. 


THEN create_error (desc, .status); 
i 


' If directory already existed, print informational message and 
: suppress logging. 


IF .status EQL SS$_NORMAL ! If no directories created 


8 
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Page 19 
° (9) | 


‘3 
i: 


1e$ep=19be 93:88:35 


; 421 1 THEN BEGIN 
3; 4 § 13 write message (msg$_ exists,1,desc); } Inform the user 
3; 4 1 RETURN false; ! Suppress logging 
: oSe 9 _ 
: 6 g 18 RETURN .status; 
3; 4 1 END; 
~EXTRN 
003¢ 00000 CREATE DIR: 
55 0000" CF 9E 0000 MOV 
5E Og c 000 UBL? 
0668 5 F QOOOA PUSHAB 
000000006 00 1 4 SOF CALLS 
0598 fe 95 0001 TSTB 
g 12 00019 BNEQ 
0668 C5 9F 00018 PUSHAB 
0000v CF 01 FB QOO1F CALLS 
008 3] 0024 BRw 
osceB «CC 5 00027 1$ TSTB 
1 12 00028 BNEQ 
01 oscc cS 91 000 8 CMPB 
Of 1A 000 BGTRU 
01 oscD §6¢5) «691 +000 CMPB 
05 1A 00039 BGTR 
0598 «C5 0 ge 00 SUBB 
6E 0598 ¢ A 00040 2$: MOVZBL 
04 AE 059C 5 bd 0045 VL 
gfe Sgt 
0% 5 81 ET 90081 BBC” 
$? 04 AS 5 0055 MUVAB 
08 $3 0 3029 3$: BBC 
3 8 AS SE Oo0e MOVAB 
04 28 83 fi 0065 4$: BBC 
51 oc AS ‘ 69 MOVAB 
04 5 04 $0 5$: BBC 
0 10 83 E MOVAB 
0D 75 6$: PUSHL 
1 OO 7 PUSHL 
§ 0D 79 PUSHL 
0D 78 PUSHL 
4 OD 70 PUSHL 
14 AE OF 7F PUSHAB 
000000006 99 F $ CALLS 
i) MOVL 
OA E Cc BLBS 
0 F PUSHL 
coo op «= A PARR 
§ g i) 099 7$: CMPL 


-0-74 


AX=11 Bliss-32 V 
¢ "B32: 


CLIUTL.SRC CREAYE 


SYSSPARSE 


Save R2,R3,R4,R 
spt lestias RS 
#8, SP 


oufPuT 
#1 S1Sspanse 
OUTPUT NAM 1 1 


OUT PUT_FAB 
. FAB_ERROR 


TPUT_NAM+59 
‘eta 1 
TPUT_NAM+61, 
ouTPUT NAM+11 
outro NAMT11, DES 
ou TPUr “WANS 12. DES 
P_RVN 
P~PROT_VALUE 
P"OWNER_UI 
#T, QUACIFIERSFLAGS, 3$ 
CREATESOWNER yic P- OWNER_UIC 
#2, QUALIFIER FLAGS: 4$ 
CREATESPROTECTION*+2, P_PROT ENABLE 
CREATESPRO OTECTION ep PROT_VALU 
UAL IF IERSFLAGS, ~5$ 
CREATESVERSION Limit, B _MAX_VERSIONS 


C 
C+4 


mo 
Pros 


#4, QUALIFIERSFLAGS, 
CREATESYOLUME. P P_RVN 
P_RVN 

P"MAX VERSIONS 
P"PROT_VALUE 

P"PROT- ENABLE 


P eQUNER_UIC 
as. baie DIR 
TATU Tus, ANY 


$s 

STA 

pgs¢ 

# Avge sie ERROR 
STAT 


— BS 


; Routine Size: 


184 bytes, 


000000006 00 
50 


Routine Base: 


13 
i 
dD 
00911293 4 dD 
4 
2 


SCODES + 0052 


} 8 
16-Sep-19 
14-Sep-19 


7 00:03: 36 ray Oi heer ae V4.0-74 
208: CLIUTL.SRCJCREATE .B32; 
BNEQ 8$ 
PUSHL SP 
PUSHL #1 
PUSHL gag g 
cals #3, LIBSSIGNAL 
MOVL STATUS, RO 
RET 
CLRL RO 
RET 


site 


0414 


FR 
te eh 
wr 


fo) } 
a seer 


0419 
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; rs ROUTINE create_file = 

; 2 ¢ ; : Functional Description 

3 2 ¢ ; Create the output file and invoke the copy subroutine. 

; 4 : ' Input Parameters 

; 4 3 none 

3 rr 1 ! Output Parameters 

; a2 § ; Results of the operation are returned (already signaled). 

3 664 5 1 lence 

3: 4465 i 

; 46 BEGIN 

; 4 

; 4468 LOCAL 

: 449 40 default_prot: WORD, ' Process default file protection 
; 450 41 status; i Catch all status return 
7 i 

; $2 ts output_fablfab$i_ctx] = msg$_openout; ! Reinitialize error message 
: 455 Ps ' 

; 45 bce$ 'L Lped the XAB wish any user specified values for file ownership 

: 45 48 ' (C{group,member]) or protection Meum -Owner,World: R WE D), 
3 : ; $3 : or volume (relative volume number 

: 460 0431 : 

3 $6) bt 26 output_xabpro[xab$l_uic] = .createSowner_uic; ! Load owner UIC 

; <27 3 output_xabpro[xab$w_pro] = -1; ! Default protection 
: 665 36 output_ nabel ULzpbeu youl = .create$volume; ' Load volume 

; £66 5 output_fablfab$l_xab = output_xaball; ' Link FAB to XAB 
ie 

; 469 60 status = SCREATE (FAB=output_fab); ! Create the output file. 
: 471 6 ' 

3; 47 8 ! Jf the SCREATE was successful at copy_in_out to copy SYSSINPUT 
: 467 64 2! to the user specified output fi 

3 4746 65 : 

3; 4675 $6 

3; «47 6 If .status ! If create worked 

: 47 28 THEN 

; 478 § BEGIN 

3; 479 status = 4 bt (FAB=output_f ab): 

:; 4 7 f NOT . if qtus THEN fab_error’ ( tout. fab); 

: 481 7 t tuet fier {tagsCqu T prot ect on 

; 46 7 THEN output_xabprolxa bse 

3; 4 74 -output_xabpro tte pro] AND NOT cevounetorgreettantt2 OR 
:; 6 75 crea ey hn J AND ocroatetprotect! on(1 

; 485 76 status = copy_in_out (); then call copy 
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3; Routine Size: 133 bytes, Routine Base: S$CODES + 010A 


3; 492 


0483 1 


Sk PE a 
-Sep-1 AX-11 Bliss-32 V4.0-74 Pp 3) 
1§-se0-1984 BT Sn CMT he rd Pea ae aadtt Sf 
| 
3 6 END | 
; 2 ELSE fab_error(output_fab); ! else report an error. | 
: 6 
: e} RETURN status; 
| 
.EXTRN SYSSCREATE, SYSSDISPLAY | 
001C 00000 CREATE_FILE: 
54 00° 9 Bn Mat Rar yt a A hanes 
18 AG 0091 0A2 Sf 06 0007 MOVL #9500978" 6uTPUT_FAB+24 + 0444 
94 as F99C cs p O00F MOVE CREATESOUNER ice TPUT_XABPRO+12 ; 492 
A Ab FOAB = C4 80 19 MOVW EREATESVOLOME OUTPUT _XABALL+10 + 045 
6 AG EO As 9 iF MOVAB OU oy OUTPUT_XABALL, OUTPUT—FAB+36 ; 7 
000000006 Q gi FB 00026 CALLS #1, SYSSCREATE ; 
0 08 90 D MOVL RO. STAT : 
4 2¢ E9 00 BLBC _— STATUS, + 0467 
4 DD 000 PUSHL R64 + 0470 
000000006 99 oi FB 000 CALLS #1, SYSSDISPLAY : 
§ $ 08 003C MOVL 5 
0 3 E8 0003F LBS STATUS, 1 3 0471 
g000v Gib S88te EAE ras ean : 
21 F998 £4 02 £1 00049 1$: C #2. QUACIFIERSFLAGS, 2$ + 0472 
1 90 A4 fs 004F MOVZWL OUTPUT XABPRO+8, R + 0474 
50 FOA gs ¢ 0033 MOVZWL CREATESPROTECTION*2, RO : 
51 0 CA 0005 BICL2 RO, R F 
3 FOAO «(C4 OSC 005 MOVZWL CREATESPROTECTION, RO : 0475 
3 F9A 4 ¢ 066 MOVZWL CREATESPROTECTION?2, R3 : 
5 : D2 0006 MCOM .R ; 
50 CA 0068 Bicle R3, : 
AG 50 1 A9 000 BISWs RI. R ourPuT XABPRO+8 ; 
0000v cr 0 FB 90 28: CALLS #0. COBY, out + 0476 
2 i) Bf MOVL RO, S$ 3 
Q 11 0007 BRB 4 > 0467 
0000v CF + Pe ogre ~~ ea FS F AB_ERROR “en 
50 93 00 0081 4$: MOVL STATUS, “RO : 0481 
| 
j 
| 
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1 
LOCAL 
' 
END; 


ROUTINE get_output_file = 


Functional Description 
i ree the next file specification from the output file 


i Input Parameters 
i none 


Marg returned if file name was produced 
FALSE returned if command Line exhausted 


output_fab = FAB initialized for curceng {ile name 


1 

t 

t 

t 

i] 

' 

; Output Parameters 
i 

1 

J 

' 

output_nam = NAM block associated with 
t 


BEGIN 


output_desc : SBBLOCK(dsc$c_s_binj; 


CHSFILL(O,dsc$c_s_bin, output. desc); ! Make descriptor dynamic 
output _ desc dscSb- class sc$k _class 9; 


IF NOT cli$get value(S$descriptor("OUTPUT’), output_desc) 
THEN RETURN false; 


: Initialize the FAB for initial parsing 


output_fablfab$l_f = ,output_desc(dsc$a_ pointer); 
output_fablfab$b_fns -output_descldsc$w_ Pengthd; 


RETURN true; 


output_ echabh abet fra} = -output_nam(nam$b_es1]; 
= 


«PSECT SPLITS,NOWRT .NOEXE ,2 


P.AAC: .ASCII \OUTPUT\ 
F -BLKB 1 
?° eAAB: .LONG 6 


54 55 50 54 55 4F a, 8 
eADDRESS P.AAC 


000000 


rons 


i 


-PSECT SCODES,NOWRT ,2 


ifeseo-1964 00:05:32 yancdt el iag-52 v4.0 


CREATE, iSoseort9es 00:05: yaReHt Bl ia4-82 vé.0374 


003C 00000 GET_OUTPUT Bates. 


Se 9 gun is R2,R3,R4,R5 
08 0c 6E 5 sé é movcS #0, (SP), #0, #8, OUTPUT_DESC 
03 AE 90 MOVE #2, OUTPUT_DESC+3 
D F PUSHL SP 
0000' CF 9F l | PUSHAB P.AAB 
000000006 90 , 01 CALLS “a, CLISGET_ VALUE 
6 : 1¢ BLEC OséaR 
000" CF 0090" CF O01F MOVE § OUTPUT_NAM#+11, OUTPUT_RLF+3 
000° CF 4 ae p 0 6 MOVL § OUTPUT~ =DESC#4, OUTPUT~ PAB SAG 
0000' cr GF 02¢ MOVE OUTPUT “DESC, OUTPUT_FAB 
0 1 00 00 1 MOVL #1, RO™ 
04 RET 
50 D4 900 5 1$: CLRL =. RO 
04 00037 RET 


3; Routine Size: 56 bytes, Routine Base: SCODES + 018F 
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ROUTINE copy_in_out: = 


{ 
Functional description 


This routine is called from the main loop to copy from 
from SYSSINPUT to the created file 


Input parameters 
None 
Output parameters 


i 
] 
i 
1 
i 
i 
i 
i 
i 
i 
t 
i 
} First error encountered, or success is RETURNed 
1 


BEGIN 


LOCAL 
syle eneee. ! Buffer size needed 
status; ! Status return value 


IF NOT (status = 
SCONNECT (RAB=output_rab,ERR=rab_error) !Connect to output file 
) THEN return (.status); 


input_fabCfab$l_ctx] = msg$_openin; ! Assign the error message 


IF NOT (status = 
SOPEN (FAB=input_fab,ERR=fab_error) ! Open SYSSINPUT 
THEN return (.sStatus); 


) 

] 

! Use the maximum record size (MRS) returned by the SOPEN to 

' request a buffer from virtual memory and store the returned 

! memory address directly in the input RAB. If MRS = 0 (signifying 
: an undefined record size) then use 512. 


bytes_needed = ! Define the byte count 
(IF NOT ! (IF valid MRS was returned 
(. input fopf tebtu mrs) EQ. 0) 
THEN input. tabltab wars] 1 __ then use it 
ELSE 512); i Else use the default 


9 
CREATE. 1B-Sep-1964 00:05:52 yAReH1 Blisg=32_v4.0-74 


>; 588 278 

; 589 7 ' 

>; 590 me ! Now request ‘bytes_needed’ bytes from VMS. Have VMS store the 

; 591 57 ' address of the grentes memory direc’ly in the ‘user buffer’ 

: 8 0580 ' address field of the RAB 

; 0581 : 

; 594 05 § 

; 236 $8 4 dla 3: (stat Lib$get ( 'R t virtual f 
: status = et_vm ! Request virtual memory o 
7 0585 ytes needed ! <this many bytes : 

; 298 09 6 ame input-rabCrab$l_ubf])) § beginning at this address 
; 600 03 & BEGIN ! If allocation fails 

; 601 589 vm_error(.status); ! signal the user 

3 ote 0590 return (.status); ! Return if not fatal 

; 60 0591 END; 

; 604 0236 

; 605 059 ! 

; 606 0594 ! Now define the size of the user buffer (usz) equal to 

; 607 0595 ! bytes_needed 

; 608 0596 § : 

; 609 0597 

3 219 £344 2 input_rabCrab$w_usz] = .bytes_needed; ! usz <== bytes_needed 

, ois 0600 : ! 

; 61 0601 ! Now that the necessary buffer space is available CONNECT to the 
3 614 pee 2 ! input file 

3; 615 0603 2! 

: 616 0604 ; 

; 617 0605 IF NOT (status = 

; 618 0606 4 SCONNECT (RAB=input_rab,ERR=rab_error) ! Connect to SYSS$INPUT 

: 619 0607 2 ) THEN return (.status); 
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Ris is the main copy loop. As long as $GET is successful (that 
's we read a record) issue $PUT's. Use the buffer address and 
record size returned by the RMS GET call to fill in the buffer 
address and size fields of the RAB used for the $PUT. 


18s 
14S 


WHILE status = 
- mY (RAB=input_rab,ERR=rab_error) ! Read a record 
output_rab(Crab$l_rbf] = .input_rabCrab$l_rbf]; ! Map input buffer 


gutpus rabLrab$w_rsz] = .input_rablrab$w_rszJ; ! Map input size 
$PUT (RAB=output_rab,ERR=rab_error); ! Write a record 
If NOT (.status EQL rms$_eof) ! If any status other than 
THEN return (.status); ! expected eof, return it 

] 

! The file is now copied. Assign the appropriate error messages 

! (which are passed to the error routines via the ‘user context’ 
field (CTX) of the FAB) and $CLOSE both files. 

input_fabCfab$l_ctx]_ = msg$_closein; ! Assign the error message 


output_fab(fab$T_ctx] = msg$_closeout; ! Assign the error message 


IF NOT (status = 
CLOSE (FAB=input_fab,ERR=fab_error) ! Close SYSSINPUT 
THEN return (.sfatus); 


and it is on an ODS-1 structure, then you cannot change the file's 

attributes if an ‘‘owner pretes.cion violation would occur. In other 

words, aS soon as you ‘‘$CREATE"’ it, you relinquish control to it. 

Therefore we disable XAB erecese tog since it may call for illegal 
legal activity 


$ 

) 

1 

: NOTE: If a file is created with different UIC via the /OWNER qualifier 
; 

i 

protection changes or some other i 


‘output_fab(fab$l_xab] = 0; ! Delink attribute blocks 


IF NOT (status = : 
SCLOSE (FAB=output_fab,ERR=fab_error) ! Close output file 
THEN return (.status); 


} 
! 
: Now release the virtual memory acquired above 


IF NOT 
(status = Lib$free_vm ( ! Release virtual memory of 
yees neste, ! this many bytes 
aoe input_rabCrab$l_ubf])) ! -beginning at this address 


BEGIN ! If deallocation failed 
vm_error(.status); ! signal the user 


678 665 return (.status); 
67 66 END; 


return (true); 
670 END; 


SeGe Ge Gease 
o 
co 
= 
oooooo 
oO 
oa 
nr 


9 
$e 
-Sep- 


1986 92:08:36 


AX-11 Ol fegese V4.0-742 
CLIUTL.SRCJCREATE .B32;1 


-7 
32; 


return if not fatal 


eEXTRN 
oEXTRN 
oEXTRN 


ORD 
57 Q00OvV CF 9E 0000 MOVAB 
56 Q000v CF 9E 0000 MOVAB 
55 000000006 80 9E 4 64 MOVAB 
54 000000006 00 9E 0001 MOVAB 
53 0000" CF bs QOO1A MOVAB 
5E 04 C2 OO01F SUBL2 
9048 8F 6B He PUSHR 
$% 02 FB 00026 CALLS 
¢ 90 00 4094 MOVL 
5 52 €E9 0002C BLBC 
FBFC C3 0091109A 8F DO Benge MOVL 
57 DD 00038 PUSHL 
FBES C3 9F 0003A PUSHAB 
000000006 00 02 FB 0003E CALLS 
52 50 DO 00045 OVL 
37 6 ? 00048 LBC 
50 FCIAC € 00048 MOVZWL 
a 12 00050 NEQ 
50 0200 . B0036 MOVZWL 
6E 50 DO 00057 18: OVL 
FCS8 C3 9F OO05A PUSHAB 
04 AE 9F QO00S5E PUSHAB 
000000006 00 0 fe 00061 CALLS 
52 50 D $494 MOVL 
03 52 8 0068 BLBS 
0088 31 0006E BRW 
FCS54 = C3 6— B80 00071 2$: MOVW 
28 pp bore PUSHL 
FC34 F one PUSHAB 
& 2 FB 7¢ CALLS 
2 0 4 007F OVL 
7E 26 E Boat 3$: BLBC 
§ 4 8 4$: SHL 
FC34 F 00087 PUSHAB 
000000006 99 F 5 CALLS 
§ D 9 MOVL 
1 E 09 BLBC 
$8 A +, a 4 0098 MOVL 
& a4 B 9E MOV 
004 F BB AS PUSHR 
000000006 00 2 + A8 CALLS 
D4 1 OAF BRB 


2,R3,R4,R5,R6,R7 
ROR, R7 
OR, R6 


US, 3$ 
#9506970, INPUT_FAB+24 
INPUT_FAB 
Wee SYSSOPEN 
RO, STATUS 
STATUS, 3$ 
INPUT_FAB+54, RO 
#512, RO 
RO, BYTES_NEEDED 
INPUT_RAB?36 


BYTES NEEDED 
#2, LTBSGET_VA 


R 
STATUS, 2$ 

BYTES NEEDED, INPUT_RAB+32 
INPUT_RAB 

a2, SYSSCONNECT 

R STATY 

STATUS, 7$ 

Rb 

INPUT_RAB 

a, SYSS$GET 

RO, STATUS 

STATUS, 5$ 

INPUT_RAB+40, OUTPUT_RAB+40 
INPUT_RAB+34, OUTPUT_RAB+34 


#°M<R3,RO> 
#2. SYS$PUT 


Page 2. 
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; Routine Size: 267 bytes, Routine Base: $CODE$ + 01C7 


9 | 
1 16-Sep-1984 00:03: AX=11 Bliss-32 v4.0-74 Page 30) 
yor-080 18-Se0-1984 99:03:36 CLIUTL. SRC cREAvE b3e04 71) 
001827A SF ei Bi 5$: CMP TATUS, #98938 : 0623 
res ego HMRI Bat Hesse. reve acs aes 
8 G eset er D0 c3 ROVE #3508906: OUTPUT _FAB+24 : D638 
FBEG BF 000CD PUSHAB INPUT FAB ; 
65 F D1 CALLS ae, SYSS$CLOSE : 
3 D D4 MOVE §— RO. STATUS : 
2 E9 00007 LBC STATUS, 78 Pat, 
BO AS OF Sone PUSHAB SN TPUT FAB 5 een 
$5 3 FB O00DF CALLS i. SYSSCLOSE : 
4 ; 9 bors BLBC erATOS. YS : | 
FC58 2§ 5 00E8 PUSHAB INPUT_RAB+36 : 0661 | 
04 AE 9F OOOEC PUSHAB BYTES "NEEDED + 0659 
000000006 09 ; i ate CALLS "2. sane vM ; 
B E8 OOOF BLBS STATUS, 8$ : 
aed $5 bo aoore os: FuSh, STATUS’ ; 0664 
50 93 dO 09108 7$ MOVL STATUS; RO : 0665 
50 01 DO 00107 8$ MOVL #1, RO : 0668 
4 0010A RET : 0670 
| 


F 


CREATE, iScseoct9ge 99:05:52 ant 


: 5 fe } ROUTINE log_results (fab): = 

: 7 1 ' -_—=aoe 

3 74 «1! ‘ 

3 75 1°! Functional description 

; 690 6 1! 

; 691 77 1! This routine is called from the main loop whenever 

; 24 a ! } logging is requested 

: 694 680 1 | Input parameters 

; $3 ° , i % ‘ b = Add f block d he the fil 

3 : ab = ress ock describin e 2 

3 $99 § 1} fab$Sl_nam = pointer to name ock 

; 698 06 1! 

: 44 06 5 : : Output parameters 

: 701 1 First error encountered, or TRUE is RETURNed 

; 70 688 1! 

: 70 89 1 !<<<- 

; 704 90 1 

3; 705 0691 BEGIN 

; 706 069 

3; 707 069 MAP fab: REF bs gb ! Define fab block format 

; 708 069% BIND nam = .f psi _nam]: $BBLOCK; i Define name block 

; at Bop LOCAL desc: VECTOR(2); ! Temporary string descriptor 
: rig 0698 F_ .namCnam$b_rsl) NEQ 0 ' IF result string nonblank, 
3; 71 0699 thei BEGIN 

3 714 3700 descl0) = .nam(nam$b_rslj; ! then display ‘t 

: oi? 370) desc 1] = .nam{nam$i- “rsal; 

: 717 $708 ELSE tr -namCnam$b_esl] NEQ 0 ! Or if expanded name nonblank 
; 718 0704 THEN BEGIN 

3; 719 0705 descl0O -namC[nam$b_esl]; ! then display it 

: 720 0706 desc(1) = .nam{nam$l “esal: 

: 721 0707 E 

. OF § 0708 ELSE int 

: fe 0709 desc 03 = - fablfab$b_fnsJ; ! Otherwise, use original 

3; 726 0710 gegen? - fablfab$i- nal; ! name string in FAB 
BO 

: 729 o7§ alist donosentunall aiauieiet aenter ! Output an informational msg 
; 7 3 pris RETURN (true); 

.. - orig 

3 731 71 END; 


0000 00000 LOG_RESULTS: y 
oe pave nothing 
SUBL # 


5E 08 ¢2 0000 
31 94 AC DO 0000 MOVL 
0 8 Al dO 00009 MOVL  40(R1), RO 


L 


0671 | 
0694 | 


0-74 p 1| 
8 age 3) 


| 
| 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


| 
| 


-$ep-1984 00:03: AX-11 Bliss-32 V4.0-74 Pa 2 | 
18-Sep-1944 et en Capt he tg Pee ae ce Ge 48) | 
03 #AO 9 TSTB (RO) 3 0698 
0 rf 1 BEQL $ : 
6E 05 AO 9A 0001 MOVZBL (RO), DESC : 700 
04 AE A b 1 MOVL (RO), DESC+4 3 0701 | 
1 18 BRB $ : $98 
0B AO 9 1D 1$ TSTB 1(RO) : 070 
0 } BEQ 2s 3 
6E 08 AO 9A MOVZBL (RO), DESC : 0705 
04 AE C ad 00 MOVL 20 ), DESC+4 : 706 
09 11 8 BRB 3 : 070 
6E 34 Al 9A D 2$ MOVZBL 52(R1), DESC : 0709 
06 AE C Al 00 9 1 MOVL  44(R1), DESC+4 ; o7i9 
3 DD 3$ PUSHL SP + 071 
9 DD 000 PUSHL #1 : 
00911073 8F DD O003A PUSHL #9506931 : 
000000006 99 05 FB 00040 CALLS #3, LIBSSIGNAL : 
0 1 0 0047 MOVL #1, RO : 0715 
4 0004A RET : 0717 


; Routine Size: 75 bytes, Routine Base: S$CODE$ + 0202 


H 9 
1er$ep-198e 12:08:30 LeLiUtosneScaeavesesee7 Pane ae) 


| 


: f 3 } ROUTINE get_createqls = 

: 7 5 1 leone | 
3; 1! 
3 f : Functional description 

; 739 1 i This routine calls CLI to obtain the command Line and 
; ry } } then all command qualifiers. 
$76 1 | Input parameters 

: Hs Howden | 
Py 7 ne i 
: 745 1! 

; ee : : Output parameters 
; 748 1 i gyal ttierStlegs = Bitmap marking which qualifiers are present | 
: 138 : : irst error encountered, or TRUE is RETURNed 

: , 1 (ecco | 
: 8g BEGIN | 
; 7546 
3 tf LOCAL 
; 756 prot_value : WORD INITIAL(O), 

; 757 prot_mask : WORD INITIAL(O), | 
; 758 status, 

3 o28 value_desc : SBBLOCKCdsc$c_s_blnj; 
> 761 
; #7 GaFP SU, (0 pacts s_bln,value_desc); ! Make descriptor dynamic. 
H re? value_desc(dsc$B_Class) = dsc$k_class_d; | 
: 765 qualifier$flags qual .Strectery? = cli$present ($descriptor('DIRECTORY')); 

3 766 qualifier$flagsiqual_owner_uic = cli$present ($descriptor("OWNER_UIC')); 

; 7% qualifier$flags(qual_protection) = cli$present (Sdescriptor( PROTECTION’) 5; 

3; 768 qualifier$flags(qual_version_limit) = cli$present (S$descriptor('VERSION_LIMIT')); 

; 769 qualifier$flags(qual_volume) = cli$present (S$descriptor('VOLUME')); 

§ aa qualifier$flagsCqual_log) = cliSpresent (Sdescriptor('LOG’)); 

; 77 IF .qualifier$flagsCqual_owner_uic) 
3; 77 THEN 
3 774 BEGIN | 
3; 775 cl eget value(Sdescriptor { 'OUNER.UIC’) value_desc); 
s IF NOT owner uic_parse(value_desc) 
3; 77 THEN RETORN false; 
3; 778 D; 
; 779 
; 780 

: . 1 dl gavel {tierStlagsCqual protection) | 
; 88 BEGIN 
3 : feasg,« Horesent CSdensr iptert "PROTECT ION. SYSTEN" D2 | 
; 2. 4 BEGIN | 
. 2 4 rot_mask = .prot_mask OR ZX" QOOF® | 

; 4 4 F cTi$get_value(Sdescriptor( PROTECTION. SYSTEM") ,value_desc) 
@. 4 THEN prot_value = parse_class(value_desc); 


9 
CREAT 1b-se -1984 00:03: AX-11 Bliss-32 V4.0-74 Pa 34) 
yon-050 1 ~300n 1382 90:83:36 CLIUTL. REICREAYE 0304 918) | 
; 790 TT? FND: 
$ 73 4 aS iSpresent ($descriptor('PROTECTION.OWNER')) 
; 79 tt 4 BEGIN | 
; 794 7 4 eret past = .prot_mask OR %X"QOFO'; 
; 795 7 9 4 F cli$get_value(Sdescriptor(' PROTECTION.OWNER') ,value_desc) 
3 £38 f & — prot_value = .prot_value OR parse_class(value_desc)*4; ’ 
; £8 , g ; iF gg spresent (Sdescr iptor( 'PROTECTION.GROUP*)) 
; 800 785 4 BEGIN 
3 $0) 7 4 oes mask = res mask OR %X°OF 00"; 
: 787 & F cli$get_value(Sdescriptor(' PROTECTION.GROUP’) ,value_desc) 
3 rte 3 4 pen prot_value = .prot_value OR parse_class(value_desc)*8; 
3 B06 as 3 {f_.£\ {Spresent(Sdescriptor(°PROTECTION.WORLD")) 
; 80 La) 4 BEGIN 
3; 808 793 4 ecet mask = prot mask OR %X‘F000'; 
; 809 Boe 4 F cTi$get_va ue (Sdescriptor(*PROTECTION WORLD") .value_desc) 
; 810 795 & THEN prot_value = .prot_value OR parse_class(value_desc) “12; 
; 811 p78 END; 
3 aig 079 
3; 81 798 ! 
3 8146 799 ! Complement the protection value since at this point, a bit set true 
3 6815 800 ! indicates that we want to ALLOW access, while the system convention 
3 gig et : is that a bit set true indicates that we want to DENY access. 
3; 818 080 
; 819 0804 presveserunees oa 7s = NOT .prot_value; 
: 820 0805 create$protection(1] = .prot_mask; 
: 821 0806 END; 
3 Ha 0807 
5 BS 0808 : 
3 824 809 IF .qualifier$flagsCqual_version_lLimit] 
3 HH 810 THEN 
$ $$ 0811 BEGIN 
; 827 bai§ cli$get_value(Sdescriptor(*VERSION_LIMIT'),value_desc); 
; 368 1 status = LibScvt_dtb(.value_desc(dsc$w_length) 
3 9 0814 .value-descldsc$a_pointerd, 
; 8 0815 createSversion_Limit); 
3 1 Big IF NOT .status 
$ § 81 THEN 
3 18 4 BEGIN 
: 19 4 write message(msg$_badvalue,1,value_desc); 
3 5 0 4 RETURN false; 
; 3 : _ END; | 
; $9 $ IF Lifier$flagsCqual_volume] | 
3 qua er$flagsCqual_volume 
: 1 6 THEN = | 
3 § oFgiM 
3 3 cl get, velus(Sdescr iptor< VOL Aen ye desg) 
; b) status = Lib$cvt_dtb(.value_descldsc$w_length 
: 5 -value descldsc$a_pointerJ, 
3 6 createS$volume); 


3 
s 


Ne 


856 Bet 


4E 4F 


54 49 4D 49 4C 


43 


54 53 59 53 2€ 4E 4F 
54 53 59 53 2E 4E 4F 


45 46 57 GF 2E GE 4F 


F NOT .status 
HEN 


52 


49 


49 


SF 


49 


49 


49 


49 


4F 


55 


54 


4E 


55 


54 


54 


bY) 


_ Erma. badvalue,1,value_desc); 


RETURN true; 
END; 


54 


SF 


43 


4F 


45 


SF 


43 


43 


43 


43 


52 


45 


49 


4D 


52 


45 


45 


45 


45 


45 


54 


53 


55 


45 


54 


54 


54 


52 49 46 
0000009 
Pat na 2 


88 
_ ieee 


0000000 
Pat nae? 


090008 


-Sep-1 
1b-s00-1 


4 18 P.AAE: 
00024 P.AAD: 


Be 12:08:36 


RESCREATE: 


AX-11 Blis 
CLivtL SRC 


«PSECT SPLITS,NOWRT ,NOEXE ,2 


eASCII \DIRECTORY\ 
BLKB 


- LONG 
eADDRESS P.AAE 
ott \OWNER -VIC\ 


- LONG 
eADDRESS P.AAG 
“fetls  haptieeteesss 


§ one " 
DRESS P.AAI 
ASCH \VERSION_ LIMIT\ 


P.AAK 
\VOLUME \ 
2 
\LOGn 


. ON 
“fees P.AAO 
melt \OWNER_UIC\ 


-LONG 
eADDRESS P.AA 
ASCII \PROTECTION. SYSTEM\ 


-BLKB 


«LONG 
- ADDRESS 
ASCII \PROTECTION. SYSTEM\ 


-BLKB 
-LONG a os 
eADDRESS P 
SASCII \PROTECTION. OWNER\ 


LONG 16 
eADDRESS P.AAW 


} 
} 
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(18) 


-_ LC 


~ASHRHe SB:0RS9G YAEL OdendzstE 2538 Poe aes 


P.AAY: .ASCII \PROTECTION.OWNER\ 


: ho 
wen 


45 4E S57 GF 26 4E 4F 49 54 43 45 54 GF 52 


55 4F S52 47 26 4E 4F 49 54 43 45 5G 4F 


16- 
14- 
EC 
FB 
FC P.AAX: .LO 16 
«ADDRESS P.AAY 
P.ABA: .ASCII \PROTECTION.GROUP\ 
14 P.AAZ: .LONG 

18 ADD 


68 16 
55 4F S52 47 2€ GE 4F 49 54 43 45 56 4F i C P.ABC: “ASCII * PROTECTION. GROUP\ 


vw 
= 
feos] 
Be Se Ge Ge Ge Se Ge Ge Ge Se Se Fe Ge Ge Ge Ge Ge Se Ge Ge Se 


1 
1 
1 
1 
000 800" 901 “ADDRESS. B. P.ABC 
4C S52 4F S57 2E GE GF 49 56 43 45 54 GF $ 59 15 P.ABE aia PROTECTION. WORLD\ 
32098099 144 P.ABD: .LONG "6 
0000000" 00148 SADD P. ABE 
4C 52 GF 57 26 4E GF 49 56 43 45 54 GF 3 50 16¢ P.ABG: *Agchi’® \PROTECTION.WORLD\ 
00000010 O13 P.ABF: .LONG 
00090090' 016 ADDRE 
54 49 4D 49 4C SF GE 4F 49 53 S52 45 56 0164 P.ABI ASCII VERSION LIMIT\ 
0 000000 B17 P.ABH: .LONG 13 
900000' 0178 “ADDRESS P.ABI ; 
45 4D 55 4C 4F 56 O17 P.ABK: ‘ASCII hae : 
00000006 00184 P.ABJ: ;LONG ; 
00000000" 00188 “ADDRESS P.ABK ; 


PSECT SCODES,NOWRT,2 
OFFC 00000 GET_CREATEQLS: 
.WORD 


Save R2, RS. Rs R5S,R6,R7,.RB,RI,.R10,R11 : 0718 

B 000000006 00 9€ MOVAB CLISGET aii ° : 

A 0000° CF 9E MOVAB GUALTF LERSFLAGS, R10 : 

9 909 ' CF 9O€ MOVAB P.AAD, R F 

58 000000006 9 MOV C/T SPRESENT, R8 : 

5E C SUBL 3 
B4 CLRW PROT “VALUE : 0738 

3 4 CLRW = PROT"MASK ; 
08 00 6E 00 2¢ MOVCS #0, TSP), #0, #8, VALUE_DESC : 0747 
03 AE ; 90 moves #2, sms ae : 0748 
i $e CALS 1. CLISPRESENT Rashes 

6A 01 8 0 4 INSV RO. #0, #1, QUALIFIERSFLAGS : 
16 AD OF PUSHAB P.AAF : 0751 

8 gi FB CALLS #1, CLISPRESENT : 

6A 01 1 a F INSV RO. #1, #1, QUALIFIERSFLAGS : 
28 «AD OOF PUSHAB P : 0752 

68 gi re CALLS #i, CLISPRESENT F 

6A 01 9 F INSV RO. #2, #1, QUALIFIERSFLAGS ; 
"= ££ CALS. #1. CLISPRESENT ;o= 

6A 01 68 5 4 INSV a}. a. #1, QUALIFIERSFLAGS ; 


A 


0000v 


0000v 


0000v 


0000v 


we VIIA oO 


50 


5¢ 


70 


008C 


00A8 


00Cc0 


FO 
0008 


OOF O 


OF 00 
0108 


0120 


F000 
0138 


ee 13:88:35 = Ye 


Bar reScouzscsee 
= <r~rrcr=z 
“>rr “Ss nn 
D 


oruor 22°S ouwrwm 
wr 


o 
@BDorV 
ae 


AMNDMNOOEM NDOVIMNOOM MDA N= OVIMIO OM MDVIO OM NOVINOOM MNOUV}OLM F QOMOuUlO FP NOMO P10 


oS 

So 
n = 
td 
ee cry 


OOO 20 OWTog "oOo "oan" 


SSSSSSseooeos 
ooo COOoooooSoOo 


Corn TN OUI UN NO N.OOM TN .O- NO 


Ww 
nr 
Ld 


PUMA NORD OPNOD OMI HD BONIS UR AAO 


So 
Po 
wn 


AMMMRMMMMMMOO 


mn 
ed 
ee 


DWM RO OO MOMOM MO ODO" MOM OM NO OO" MOM OM NO" OLVF O—-- MOM 0" OO" O 
nm 
OOD "OOOO 09 "9500 “Oo sm 


OWI PMANOPF WMOM NOS PMNOPO 


nao 
tt 


P.AAL 
#i, CL ISPRESENT 
RO, #4, 


#1, QUALIFIERSFLAGS 


P 
#i, CLISPRESENT 
RO, # 


: #1, QUALIFIERSFLAGS 
a, QUALIFIERSFLAGS, 1$ 


P. AAP 
#2, CLISGET_VALUE 
"1, OWNER_UIC_PARSE 
RO, 1$ 


1 
see QUALIFIERSFLAGS, 2$ 


P.AAR 
#i, CLISPRESENT 
#15, PROT_MASK 
SP 


AAT LISGET VALUE 
nS § . 

#1, PARSE CLASS 
RO, PROT_QALUE 


AAV 
#i, CLISPRESENT 

RO, & 

#240, PROT_MASK 
P.AAX 

#e, CLISGET_VALUE 
R e 4 

#1 PARSE CLASS 
RO, PROT_VALUE 
i. ISPRESENT 
#3840, PROT_MASK 
SP 


AB) CLISGET_VALUE 


Hl. PARSE_CLASS 
RO, PROT_VALUE 
#i, CLISPRESENT 
r) dh. PROT_MASK 
SP 


P.ABF 


X-11 Bliss-32 V4.0- 
LIUTL.SRCJCREATE .B3 


Pe Se Se Se Ge Se Ge Ge Se Ge Se Se Fee Fe Se Se Ge Se Ge Se Se Se Se Se Ge Se Ge Be Se Ge Se Se Se Be Be Se Se Se Se Se Se Se Se Se Se Se Se Se Be Se Se Se Se Se BeBe 


3; Routine Size: 402 bytes, Routine Base: $CODE$S + 031D 


™ 2 
CREAT 66-Sep-1984 Ax-11 Oi ies -32 v4.0-7 Page 38 
yor-080 1erSe8- 1382 99:85:88 «| FaN TUT Sk degc ze ve. O324 9° 18) 
B FB 00114 CALLS #2, CLISGET_VALUE ; 
E § £8 Botts BLBe 45 gy iSeeT. ; 
; DD OO11A PUSHL + 0795 | 
0000v CF F 1 CALLS #1 PARSE, LASS ; 
Q 1 ASHL #12, ; 
A8 001 BISW2  R past ox LUE : 
08 B2 00128 6$: MCOMW por VALOE. "EREATESPROTEC CTION + 0804 
A AA ; B0 001 MOVW PROT"MASK REATE PROTECTION#2 + 0805 
20 6A E1 00130 7$: BBC #3, QUALIFIER FLAGS, 8$ + 0809 
E Bp 1 PUSHL SP + 0812 
0150 g F 001 PUSHAB P.AB : 
6B 2 FB O013A CALLS 2” tL $GET_VALUE : 
¢ AA 9F 00130 PUSHAB Cheate VERSTON, LIMIT + 0813 
AE po 14 PUSHL  VALUE_DESC+4 + 0814 
7 8 AE 3C 0014 MOVZWL VALUE~DESC, -(SP) + 0813 
000000006 Q FB 0014 CALLS #3, LIBSCVf_oTB ; 
D 145 VL OR ; 
24 E 13 BLBC = STA ; 0816 
33 6A 04 E1 00154 8$ C rT preg eaecon 10$ + 082 
bp 0158 PUSHL + 0828 
0160 i F O13, PUSHAB ; 
6B 2 FB 001 ‘ CALLS CLISGET y VALUE ; 
10 AA 9F 0016 PUSHAB fhea AT + 0829 
08 AE pp 0164 PUSHL VALUE_ Estee + 0830 
7E 08 AE 3C 00167 MOVZWL VALUE-DESC, -(SP) + 0829 
000000006 Q FB 001 CALLS #3, LIBSCVT_DTB : 
D 91 MOVL 0; STA Ws : 
1 E8 0017 BLBS STATUS, 10$ + 0832 
SE DD 00178 9$ PUSHL SP + 0835 
01 DD O17, PUSHL #1 : 
00911112 8F DD 0017 PUSHL #9507090 ; 
000000006 00 3 FB 0018 - CALLS #3, LIBSSIGNAL ; 
04 11 0018 BRB i$ + 0836 
50 01 00 00188 10$: . MOVL #1, RO + 0840 
04 OBE RET F 
50 D4 OO18F 118 CLRL = RO + 0841 
04 00191 RET : 


™ 
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Pee 
OOd NAUSEA CO OONOUNS Uy 
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nN 9 

16-Sep-1984 00:03: AX-11 Bliss-32 V4.0-74 

122868213 4 99:98:30 CLIUTL.SRC CREATE 83061 
ROUTINE owner_uic_parse (qual_desc_block): = 


' 
Functional description 


i This routine is called from CLI to parse the value 
} _ @ssociated with the /OWNER_UIC qualifier. 


! Input parameters 
qual_desc_block = Address of CLI request block 
Output parameters 


create$_owner_uic = Value if fOuner. 
s 


C spec # ted 
First error encountered, or TRUE T d 


Ul 
RETURNe 


BEGIN 


LOCAL r 
status; 


MAP qual_desc_block: REF $BBLOCK; ! Define block format 


IND 
uicvec = createSowner_uic : VECTOR C2,WORD]; 
i 


Move the descriptor returned by CLI into the TPARSE parameter block 


tparse_biockttpast stringent, = -qual desc block dscéu_lengthd; 
tparse_block(tpa$l_stringptr] = .qual_desc_block dsc$a_pointer); 


Now call TPARSE using the appropriate STATE and KEYWORD tables. 
If successful TPARSE will load storage as follows: 
owner_uic <== converted UIC 
\ 


IF NOT (status = Lib$tparse ( 
tparse_block 
owner _uic stb 


Call TPARSE with 
“parameter block 
“state table 


owner~uic—ktbS) -keyword table 
THEN BEGIN ! If TPARSE fails 
write_message ( ! Inform the user 
msg$_syntax, ! eof SYNTAX error 
. ! one FAO arguement 
-Qual_desc_block, ; ~~ strin 
-Status); us original error 


return (.status); onty if non-fatal 
END; 


Se ee 


10 
VecSep-i9ee 42:08:30 Le TUR SsmeScaea¥e-o30s1 Pane a9) 


; Routine Size: 67 bytes, Routine Base: S$CODE$S + O4AF 


1 return (true); 
9 : END; 
UICVEC= CREATESOWNER_UIC 
000C 00009 OWNER_UIC_PARSE: 
<QORD Sav + 0842, 
52 04 A p0 00002 HOVE QUAL DeseoB BLOC ; 0876 | 
0000' ¢F 62 3C 00006 MOVZWL (R2)- TPARS BLOC chee : 
0000" CF 06 A2 dO 90008 MOVL 4 Re}, TPARSE _BLOCK+12 ; 0877. 
0000" CF 9F 00011 PUSHAB OWNER.UIC_K ; 0886 | 
9000" CF 9F 00015 PUSHAB OWNERUIC STB : 
000" CF 9F 00019 PUSHAB TPARSE BLOCK : 
000000006 00 03 FB 0001D CALLS LIBSTPARSE F 
53 50 00 00024 MOVL nO: STATUS F 
15 53 EB 00027 BLBS STATUS, 1$ : 
0C 6B 000¢A PUSHR #*M<R2.R3> + 0896 
01 DD 0002c PUSHL : 
009110FC 8F DD 0002E PUSHL #9507068 ; | 
000000006 00 04 FB 00034 CALLS #4, LIBSSIGNAL : 
50 53 DO 00038 MOVL STATUS, RO ; 0897 | 
04 0003¢ RET ; | 
50 01 DO 0003F 1$: MOVL #1, RO : 0901. 
04 00042 RET : vind 
| 
| 


10 


CREATE. |SoSeoct9ge 00:05:32 yanett eLieg: 


> 921 0904 1 ROUTINE parse_class (desc) = 

3; F ¢ 905 1 

ime Bie 

; 925 908 1 ! This routine parses one class of user (e.g. SYSTEM, OWNER, SROvP WORLD) 
; § $ 3484 1 ' to see what protection is allowed. The value returned in the low 4 bits 
; 9 910 1: is the protection code, with the bits set to reflect that access is 

3 4 : batt : ; requested. Note that this is exactly the opposite of what the system wants. 
BIE | tree 

: 338 0915 1! DESC == a descriptor pointing to the ASCII representation of the 
; 9 9318 1! protection desired 

; 934 0917 1! 

; 935 0918 1 !<-<- 

; 936 0919 1 

; 937 0920 BEGIN 

; 938 B95) 

; 939 09 ¢ MAP desc : REF S$BBLOCK; 

; 940 092 

3; 941 0924 LOCAL 

3 ae6 0925 2 pointer, ! Pointer to strin ng 

3 ot 44 g 5 result : INITIAL(0); i Resultant protection (default is no accesss) 
[945 0928 2! 

: 946 0929 2! Scan for the occurrence of each keyletter, and, if it is there, set the 
3: 947 0930 2: appropriate bit. 

3; 948 0931 2! 

; 949 093 pointer = .desc(dsc$a_pointer); 

; 950 093 NCR index FROM 1 to .descLdsc$w_length] DO 

; 951 0934 BEGIN 

; 952 0935 LOCAL char : BYTE; 

; 953 0936 3 char = y EY _Alpointer); 

: 954 0937 3 IF .char EQL 

s 955 0938 ; THEN ath ny = * result OR %x‘1" 

: 956 0939 ELSE IF .char EQL ‘w' 

3; 957 0940 THEN result = result OR %X*2' 

; 958 0941 ELSE IF .char EQ 

; 959 094 R .char EQL ‘P* 

; 960 094 ; THEN result = result OR %x'4' 

: 961 0944 ELSE IF .char EQL ‘D* 

5 208 0945 char EQL ‘L* 

: 996 0946 THEN result = .result OR %x‘'8' 

: 964 0947 ELSE SIGNAL_STOP (msg$_syntax, 1, .desc); 

: 965 0948 END; 

5 208 0949 

; 96 0950 RETURN .result; 

3; 968 0951 1 END; 


007C 00000 PARSE_CLASS: 
oW Save 
7 * - 4 0002 MOVL ESS 
4 0006 MOVL 4(R 


Page 41 
(18) 


| 


D 10 
CREAT 16-Sep-1984 00:03: AX-11 Bliss-32 V4.0-74 Page 42 
Gon 080 1ensee= 138s P9:88:8g | HaM TUT Obkescze ve - 05069 98) 
55 $3 3¢ OA MOVZWL (R2), RS : 0933) 
ze 41 odor EE ye : | 
0 30 0 11 1$: MOVB (POINTER)+, CHAR > 0936 
52. BF 9 14 CMPB HAR, #82 : 0937 | 
i 0018 BNEQ : | 
54 rie 1A BISB2 #1, RESULT + 0938 | 
11 00010 BRB BS ; 
57 BF 91 OOO1F 2$: CMPB HAR, #87 + 0939 
i 00 3 BNEQ 3 
54 88 000 BISB2 #2, RESULT + 0940. 
11 00028 BRB $ ; | 
45 8F 91 O002A 3S: CMPB =s CHAR, #69 + 0941 
0 15 000g BEQL eget 
50 soSF 91 000 CMPB HAR, #80 + 0942 
05 fF 000 BNEQ ; 
54 04 88 000 6 4$: B1SB2 #4, RESULT + 0943 
44  8F 6 91 it 5$: CMPB —s- CHAR, -#68 + 0944 
4c BF 96 dF opOR Bree OPMAR, 876 ? 0945 | 
05 12 00043 BNEQ 7$ ~ : 
54 08 88 00047 6$: BISB2 #8, RESULT + 0946 
11 11 OO04A BRB 8$ : 
of Bb oooee pune Oa — 
009110FC 8F DD $0985 PUSHL #9507068 : 
000000006 90 03 FB 00056 CALLS #3, LIBSSTOP : 
0 5 5 F3 0005D 8$: AOBLEQ R5, INDEX, 1$ + 0933 
50 54 00 00061 MOVL RESULT, RO : 0950 
04 00064 RET : 0951 


; Routine Size: 101 bytes, Routine Base: SCODES + 04F2 


; 969 0952 1 | 
| 


SE ee ee aaa 


10 | 
NECREEHORE QBSSEHG—WAGUA SER tft roe 3 


z 
: 


: 97) 9 ; } ROUTINE handler (signal_args, mechanism_args) = 
: 378 955 1 !W<- 
; 974 9 : 1! 
; 975 957 1! This condition handler gets control on any signalled 
3 378 228 1! condition in order to save the highest severity error 
: ofr B28 : } to be returned by exit from the image. 
> 979 0961 | i Inputs: 
; 980 308 1! 
; 981 965 1! signal_args = Address of signal argues list | 
3 386 41 ! mechanism_args = Address of mechanism argument List 
; ; 
3; «984 9 1 ! Outputs: 
£30 ME Of Scratieek sie le mans one vip cabot | 
3 orst_error is r rror. 
288 Bore tj w - updated w ghest severity erro 
; 988 0970 1 !--- 
; 989 0971 +1 
; 990 097 BE®.N 
; «991 097 | 
3 4.4 0974 
; 99 0975 signal_args: REF SBBLOCK, ! Adr of signal arg List 
> 994 0976 mechanism_args: REF $BBLOCK; ! Adr of mech. arg List 
; 995 0977 
>; 9% 097 LOCAL 
3 444 3444 code: $BBLOCK CLONG); ! Condition code (longword) 
; 1900 349 code = .signal_args Cchf$l_sig_name]; ! Get condition code | 
3 1001 098 If _.code Csts$v_severity] GIR .worst_error Csts$v_severity] | 
3 1 0984 THEN 
g Hh $ 4444 worst_error = .code OR sts$m_inhib_msg; ! Set new worst error | 
; 1005 098 ss$_resignal ! Continue signalling 
s 1008 0988 
: 100 0989 1 END; | 
| | 
0000 00000 HANDLER:.WORD Save nothing : 0955 
28 o% A 4 BRee MOVL SIGNAL_ARGS, RO ; 0981 
5 4 AO 00 000 MOVL 4(RO), CODE : | 
51 0000" ¢F 03 0 EF OOO0A EXTZv #0, as, WORST_ERROR, R1 > 0983 | 
51 0 0 ° 2 1} a #0, #3, CODE, R1 : 
0000° CF 0 10000000 8F ¢9 0001 BISL3 #268435456, CODE, WORST_ERROR ; 0985 
5 ait: HH 3¢ +t 42598 RO : 0989 


3; Routine Size: 40 bytes, Routine Base: S$CODE$ + 0557 


F 10 
1ec$ep-i98e 42:00:30 Le iutL sae ScaeaYe-b3e: 


H } : } ROUTINE fab_error (fab): = 

3 101 992 1 nan 

3% \§ 995 1! 

3 ; \? Boe : : Functional description 

3 1015 996 1/ This routine is called from RMS whenever an error 

: ; 18 144 ; H occurs during an RMS file function call. 

; 1018 0399 i Input parameters 

; 19 0 1001 1! fab = Address of block used in the RMS call. 

3; 1021 1 § 1: fab$l_nam = pointer to name block 

3; 10 ¢ 1005 1! fab$l_ctx = error message to be used 

; 10 1004 1! 

3; 1024 1005 1 ! Output parameters 

; 1025 IS08 1! 

3; 10 $ 1007 1! Expanded error messages to user 

; 10 b's ,! FAB status is RETURNed 

; 1028 1009 1! 

: 1029 1010 1 !---- 

; + 1011 1 

3; 1031 sig BEGIN 

3 1038 101 

3; 103 1014 MAP fab: REF LOCK; ! Define fab block format 
3 ORE ISN? BIND nam = .fabCfab$l_nam): SBBLOCK; ! Define name block 

; 1938 1017 LOCAL desc: VECTOR(2); ! Temporary string descriptor 
; 44 133) iF hentnensb_rst) NEQ 0 ! IF result string nonblank, 
3 1040 Ie) deset03 = .nam(nam$b_rsl); ! then display it 

3; 1041 1 § desclij = .nam(nam$l_rsaJ; 

3 Ong 1s END 

: bo } 3 24 clgeeneneecstd NEQ 0 ! Or if expanded name nonblank 
3 1045 1956 desc(0) = .nam(nam$b_esl); ! then display it 

3 1966 Wer desc(1] = .nam(nam$l_esaJ; 

3 104 1028 ND 

; 1068 106) ELSE BEGIN é 

3 104 1030 desc(l0] = .fab(fab$b_fns]; ! Otherwise, use original 
3 1930 1033 desc 1] = .fablfab$l—fnal; ! mame string in FAB 

> 105 1 33 : 

3 1988 P 1 write_message(.fab(fab$l_ctxJ,1,DESC, ! Output an error message 
3 1054 P 1035 > taps febst sts) : with fab error code 

; 1922 103 -fablfab$l_stv j; ! and secondary code 

: 1087 1038 @ RETURN (.fabCfab$l_sts)); 

: 1058 1039 

3; 1059 1040 END; 


0004 00000 FAB_ERROR: 


P ba 
*9° (20). 


EU eine - 


Cdl al 


lett 


Be 12:08:36 
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1 


EI 


w wv = | 
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78 bytes, Routine Base: SCODES + 057F 


; Routine Size: 


H 10 
v0r~060 1e-$ep-i98e 12:08:35 LetiutesneScaeaYe ese] 


ROUTINE rab_lerror (rab): = 


wn 


OOONOUS wT 


ERLELELER 


sy 1 1 

3 3 1 1 

3 Y 1 1 

3 3 1 . * 

3 ; 5 ! : } Functional description 

3; 106 1 1: This routine is called from RMS whenever an error 

; 1969 : : occurs during an RMS record function call. 

; 1070 1920 1 ! Input parameters 

; 1071 1051 1! 

3 1076 1 2g 1! rab = Address of block used in the RMS call. 

3; 107 1 1! rab$l_ctx = error message to be used 

3; 1074 1054 1! rab$l_fab = pointer to fab block 

g + t 192? : : fab$Sl_nam = pointer to name block 

3 1979 1989 1 ! Output parameters 

; 1978 1058 1! 

3; 1079 1059 1! Expanded error message to user 

; 1080 1060 1! RAB status is RETURNed 

3; 1081 1061 1! 

3 1086 1996 1 leone 

; 108 1065 1 

3; 1084 1064 BEGIN 

3; 1085 1065 

3; 1086 128 MAP rab: REF SBBLOCK; ! Define RMS block format 
3 1087 106 8 

3; 1088 1068 fab = .rabCrab$l_fab] : SBBLOCK, ! Define fab 

3 +s 34 1368 nam = .fablfab$l_nam) : S$BBLOCK; ! Define nam 

: 1) 197) LOCAL desc: VECTOR(2); ! Temporary string descriptor 
; 1998 1998 4 IF ((.rab Crab$l_sts] EQL rms$_eof) ! If error is end of file 
3; 1094 1074 ! and 

3; 1095 1075 (.rabCrab$l_ctx] EQL msg$_readerr)) ! this was a read call 

3: 1096 1976 THEN ! then 

3 44 197 RETURN (.rabCrab$l_stsJ); ! don't bother to report it 
: 1099 1979 IF _.namCnam$b_rsl} NEQ 0 ! IF result string nonblank, 
: 1100 1080 THEN BEGIN 

3 1101 1081 desc 9 = ,nam(nam$b_rsl); ! then display it 

$ 1108 1086 gose 1] = .nam(nam$l_rsaj; 

; 11% 1 ELSE IF .namCnam$b_esl]) NEQ 0 ! Or if expanded name nonblank 
3: 1105 1085 THEN BEGIN 

3 Hy 3 1 desc(0) = .nam{nam$b_esi); ! then display it 

3; 110 10 descliJj = .nam[nam$l_esa); 

3 1198 10 END 

311 10 ELSE BEGIN 

3; 1110 1 desc 9 = .fab{fab$b_fns); ! Otherwise, use original 
3.1111 1091 descl1J = .fablfab$l_fnaJ; ! name string in FAB 
Pas 1098 a 

3 1114 P H+ write_message(.rabCrab$i_ctx],1,DESC, ! Out ut an error message 
z 1115 P 1095 -rab repst sts] ! with RMS error code 

: 1116 1096 -rabLrab$l-stvJ5; i and secondary code 
3111 109 


Pa 46 
at) 


3 Routine Size: 


1 


102 bytes, 


; 
0001827A = BF 
00911082 8F 

6E 

04 AE 
6E 
04 AE 
6E 
04 AE 
7E 


000009006 99 


Routine Base: 


RETURN (.rabCrab$l_sts]); 
END; 


0004 

08 C¢ 

4 AC OD 
Ae D 

Al D 

A2 o} 

OA 
18 Ae ? 
3¢ 

03 AO 9 
0B 1 
03 AO 9A 
04 ad 00 
19 #11 
0B A0 3 
0B 1 
0B AO 9A 
oc Ad 00 
09 11 
34 Al QA 
ec AI 4 
08 A2 7D 
08 AE 9F 
01 oD 
18 A2 0D 
0 4 

08 <A2 D 
04 


SCODES + 05CD 


f 


sop-1 
~ep-1 


38 19:08:35 


00000 RAB_ERROR: 


EAI = SS 
WAIT > COUN 2=SSan 


= 
ad 


Ax-11 
CLIUTL 


COBB OL NS 2 WS FPN - DEADWAM 


So oS 


(21) 


3 


SSZ22S B 


oO 


#3 
e 


NOUS wT 


MPwnN— 
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3; Routine Size: 


Wn 


w 


a ts tt a ts a a a ts a a a 
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WIWRononononononononony 2 3 a 2 oe 


[OO DNAUES WN $OVONOULS WN Oo: 


26 bytes, 


PEI at aed et ed i a da ed 


AX-11 Bliss-32 V 
CLIUTL.SRC CREATE 


ide ags 99:85:32 
ROUTINE create_error (string_desc,status): = 

leoce 

Functional description 


This routine is called when an error is returned 
by LIBSCREATE_DIR. 


i Input parameters 

string. on = address of a string descriptor for the name 
directory being processed 

status = error status passed by caller 

i Qutput parameters 


Expanded error message to user 


! 
nl 
‘ 
] 
' 
! 
{ 
' 
i 
1 
{ 
i] 
i] 
‘ 
Input status is RETU Ned 
' 


BEGIN 

MAP string_desc: REF SBBLOCK; 
write_message(msg$_dirnotcre,1,.string_desc,.status); 
RETURN (.status); 

END; 


0000 00000 CREATE_ERROR: 
WORD 


Save nothing 
7E 04 7 90002 MOVQ  STRING_DESC, -(SP) 
Ob PUSHL #1 
009112¢2 BF He PUSHL #9507522 
000000006 99 04 CALLS #4 LIBSSIGNAL 
08 AC i Goats MOVL STATUS, R 


Routine Base: $CODES + 0633 


0-74 
-B32; 
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wi 
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PPPS ES BE EEE EE EE 
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= PINIRINOIPIR) 9 St St SS SS SS SS SS SS SY YY 


Kk 10 


1enSep-1986 19:08:36 


ROUTINE vm_error (status): = 


' 
i Functional description 


This routine is calle 
by LIBSGET_VM or LIBSF 


i Input parameters 


! 

! 

: d 
' 

1 

' 

‘ 

; status = error status passed by caller 
' 

1 

1 

' 

' 

i 


Pate un an error is returned 


i Qutput parameters 


Expanded error message ¢ to user 
Input status is RETU 


BEGIN 
write_message(.status); 
RETURN (.status); 

END; 


0000 00000 vm_ERROR: 


WOR 
04 AC DD 0000 PUSHL 
000000006 00 01 FB 0000 CALLS #1 
50 04 AC 00 0000C MOVL STATUS, 
04 00010 RET 


17 bytes, Routine Base: S$CODE$ + 064D 


CLIUTL.SRC CREAT 


LSS... | 


Save nothing 
TAT 


CREATE, H$Ben-1964 00:05:32 yanedy BL ie4=52 v4.04 


-EXTRN LIBSSIGNAL, LIBSSTOP 


3 PSECT SUMMARY 

: Name Bytes Attributes 

3 SOWNS 1788 NOVEC. WRT. RD .NOEXE, NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
3; SPLITS 3 NOVEC,NOWRT, RD ,NOEXE.NOSHR, LCL, REL. CON.NOPIC.ALIGN(2) 
; LIBSKEYOS NOVEC,.NOWRT, RD, ° - LCL, REL, CON, PIC,ALIGN(1) 
; LIBSSTATES 12 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(1) 
; LIBSKEY1$ NOVEC,NOWRT, RD, EXE, - LCL, REL, CON, PIC,ALIGN(1) 
: SCODES 1630 NOVEC, » _RD , EXE,NOSHR, LCL, REL, poe bE gb bt os 
5 « 8 0 NOVEC,NOWRT,NORD ,NOEXE,NOSHR, LCL, ABS, CON,NOPIC,ALIGN(O) 
H Library Statistics 

aera Sore eed see Symbols -------- Pages Processing 

3 File Total Loaded Percent Mapped Time 

; $2 ~$355$Dua28: SYSLI BISTARLET. “43241 9776 119 1 581 00:01.0 

3 _$255$DUA28:CSYSLIBJTPAMAC.L32 42 22 52 14 00:00.1 

: COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:CREATE/OBJ=OBJ$:CREATE MSRCS$:CREATE/UPDATE=(ENHS: CREATE) 
: gtacs 1659, 36:3 + 2206 data bytes 


! Lexenes/CPU-Rin: 32065 
; Memor ry Us 225 pages 
; Compi oten Complete 


004' AH-BT13A-SE 7 
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